home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_20_1987_Transactor_Publishing.d64
/
default demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
965b
|
28 lines
10 rem* default demo -- july 1987
20 rem* by amir michail
30 rem* saves and reads default values
40 rem* from last block of program
50 :
100 z$=chr$(0): open 15,8,15
110 open 2,8,2,"#"
120 rem read values from disk buffer
130 print#15,"m-r"chr$(24)chr$(0)chr$(2)
140 get#15,t$,s$:t=asc(t$+z$):s=asc(s$+z$)
150 print#15,"b-p";2;2
170 get#2,c1$,c2$,c3$
180 poke53281,asc(c1$+z$):poke53280,asc(c2$+z$):poke646,asc(c3$+z$)
195 close2:close15
210 print ,"change color defaults";
220 input k$:if k$="n" then 320
230 input "background, border, text colors:";c1,c2,c3
240 poke53281,c1:poke53280,c2:poke646,c3
250 open15,8,15:open2,8,2,"#"
260 rem write values to last sector
270 print#15,"b-p";2;2
280 print#2,chr$(c1)chr$(c2)chr$(c3);
290 print#15,"u2";2;0;t;s
300 print "done!"
310 close2:close15
320 print "program can start from this point."
330 end